home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / C64 / E-Education / (c)ed35.d64 / unit d-4 (.txt) < prev    next >
Commodore BASIC  |  2007-02-04  |  6KB  |  211 lines
  1. 10 POKE53280,0:POKE53281,0:POKE646,3:POKE53272,23:L=0:W=0:Z=0:C=0
  2. 15 PRINT"[147]                                        [146]";
  3. 20 PRINT"            [202]AMIE'S [211]PELLING            [146]";
  4. 25 PRINT"                                        [146]";
  5. 30 PRINT"                                        [146]";
  6. 35 PRINT"                [213]NIT [196]-4                [146]";
  7. 40 PRINT"                                        [146][159]":GOSUB300
  8. 45 REM THIS UNIT PREPARED BY BILL CUMBERLAND 1992:03:13
  9. 50 GOSUB700
  10. 55 GOSUB 600
  11. 60 GOTO1000
  12. 200 PRINT"[147][159]              [215][207][210][196][160][204][201][211][212]                 [146]"
  13. 205 PRINT" WATCHING   CLEANED  TEACHER    TURNING
  14. 210 [153]" CHECKING   SORTED   WALKER     WISHING
  15. 215 PRINT" FINISHING  MISSED   REMEMBERED LANDING
  16. 220 [153]" LEARNER    SINGER   FOLLOWING  LEADING
  17. 225 PRINT" BENDING    GUESSED  TOSSED     CATCHER":GOSUB402
  18. 230 RETURN
  19. 240 GOSUB400
  20. 245 PRINT"[155]* [213]NSCRAMBLE THIS [158]ROOT[155] WORD.  [212]HEN
  21. 250 [153]"  ADD A SYSSUFFIXLIST TO FORM A LIST WORD.":[141]401:[141]560
  22. 255 [142]
  23. 270 [153]"               LEN(null)(null)(null)VALLEN(null)!                 WAIT":[141]500:[142]
  24. 280 [143] IF X=1THENGOSUB290
  25. 282 [153]"DEF            (null)HOOPS!  (null)O!                WAIT":X[178]X[170]1:[141]530:[141]402
  26. 284 [153]"ONON            (null)RY AGAIN                   PRINT":[141]402:[141]560
  27. 286 [153]"ONON                                        ONON"
  28. 288 [153]"ONON                                        ONON":[142]
  29. 290 [153]"DEFONON>> (null)HE CORRECT WORD IS........       ":[141]530
  30. 295 [153]"                                    ONPRINT":[142]
  31. 300 [141]402:[141]560
  32. 305 [153]"CONT      (null)RESS (null)(null)ATNLENVALCLOSEPEEKATN(null)CLOSETO CONTINUE       WAITLIST"
  33. 310 [161]R$:[139]R$[179][177][199](32)[167]310
  34. 315 [142]
  35. 400 [129]T[178]1[164] 500:[130]:[142]
  36. 401 [129]T[178]1[164] 1000:[130]:[142]
  37. 402 [129]T[178]1[164] 2000:[130]:[142]
  38. 403 [129]T[178]1[164] 3000:[130]:[142]
  39. 404 [129]T[178]1[164] 4000:[130]:[142]
  40. 405 [129]T[178]1[164] 5000:[130]:[142]
  41. 500 [143] <YES> SOUND
  42. 505 S[178]54272:[129]E[178]S[164]S[170]28:[151]E,0:[130]
  43. 510 [151]54296,15:[151]54277,42:[151]54278,250
  44. 515 [151]54276,23:[151]54273,23:[151]54272,191
  45. 520 [129]T[178]1[164]100:[130]:[151]54276,32:[129]T[178]1[164]200:[130]
  46. 525 [151]54296,0:[142]
  47. 530 [143] <NO> SOUND
  48. 535 S[178]54272:[129]E[178]S[164]S[170]28:[151]E,0:[130]
  49. 540 [151]54296,15:[151]54277,18:[151]54278,242
  50. 545 [151]54276,33:[151]54273,4:[151]54272,48
  51. 550 [129]T[178]1[164]300:[130]:[151]54276,32:[129]T[178]1[164]400:[130]
  52. 555 [151]54296,0:[142]
  53. 560 [143] <BLIP> SOUND
  54. 565 S[178]54272:[129]E[178]S[164]S[170]28:[151]E,0:[130]
  55. 570 [151]54296,8:[151]54277,42:[151]54278,250
  56. 575 [151]54276,23:[151]54273,23:[151]54272,191
  57. 580 [129]T[178]1[164]30:[130]:[151]54276,32:[129]T[178]1[164]50:[130]
  58. 585 [151]54296,0:[142]
  59. 600 [153]"LOADPRINT (null)HERE ARE TWELVE QUESTIONS":[141]401
  60. 610 [153]" (null)OUR PERFORMANCE WILL BE SCORED.":[141]401
  61. 620 [141]300
  62. 630 [153]"LOAD AND AWAY WE GO .........":[141]402:[141]500:[141]401
  63. 640 [142]
  64. 700 [153]"OPENLOAD               CHR$AME (null)LAN                WAIT
  65. 705 PRINT"  [201]N THIS GAME YOU WILL ADD THE
  66. 710 [153]"  SYSSUFFIXES EDOPEN, EROPEN, AND INGOPEN TO SOME
  67. 715 PRINT"  WORDS WITHOUT CHANGING THE SPELLING     OF THE [158]ROOT[159] WORD.
  68. 720 [141]403:[153]"               VAL(null)ATN(null)(null)(null)VAL(null)":[141]560:[141]401
  69. 725 [153]"PRINT         LEARN + EDOPEN = PRINTLEARNED":[141]402
  70. 730 [153]"          READ + EROPEN = PRINTREADER":[141]402
  71. 735 [153]"         BURN + INGOPEN = PRINTBURNING":[141]402
  72. 740 [153]"          SING + EROPEN = PRINTSINGER":[141]402
  73. 745 [153]"   ROOT WORD + SUFFIX = NEW WORD":[141]560:[141]560:[141]402
  74. 750 [141]300
  75. 755 [142]
  76. 1000 [143] # 1
  77. 1005 [141]200:[141]240:X[178]0
  78. 1010 [153]"PRINT                SUEGS SYS"
  79. 1015 [133] A$
  80. 1020 [139]A$[178]"GUESSED"[167] [141]270:[141]402:[137]1050
  81. 1025 [139]X[178]1[167][141]290:W[178]W[170]1:[141]402:[137]1035
  82. 1030 Z[178]Z[170]1:[141]280:[137]1015
  83. 1035 [153]"                GUESSED"
  84. 1040 [141]300
  85. 1049 :
  86. 1050 [143] # 2
  87. 1055 [141]200:[141]240:X[178]0
  88. 1060 [153]"PRINT                TAWCH   SYS"
  89. 1065 [133] A$
  90. 1070 [139]A$[178]"WATCHING"[167] [141]270:[141]402:[137]1100
  91. 1075 [139]X[178]1[167][141]290:W[178]W[170]1:[141]402:[137]1085
  92. 1080 Z[178]Z[170]1:[141]280:[137]1065
  93. 1085 [153]"               WATCHING  "
  94. 1090 [141]300
  95. 1100 [143] # 3
  96. 1105 [141]200:[141]240:X[178]0
  97. 1110 [153]"PRINT                NACLE SYS"
  98. 1115 [133] A$
  99. 1120 [139]A$[178]"CLEANED"[167] [141]270:[141]402:[137]1150
  100. 1125 [139]X[178]1[167][141]290:W[178]W[170]1:[141]402:[137]1135
  101. 1130 Z[178]Z[170]1:[141]280:[137]1115
  102. 1135 [153]"                CLEANED"
  103. 1140 [141]300
  104. 1149 :
  105. 1150 [143] # 4
  106. 1155 [141]200:[141]240:X[178]0
  107. 1160 [153]"PRINT                HATCC   SYS"
  108. 1165 [133] A$
  109. 1170 [139]A$[178]"CATCHER"[167] [141]270:[141]402:[137]1200
  110. 1175 [139]X[178]1[167][141]290:W[178]W[170]1:[141]402:[137]1185
  111. 1180 Z[178]Z[170]1:[141]280:[137]1165
  112. 1185 [153]"                CATCHER "
  113. 1190 [141]300
  114. 1200 [143] # 5
  115. 1205 [141]200:[141]240:X[178]0
  116. 1210 [153]"PRINT                NURT  SYS"
  117. 1215 [133] A$
  118. 1220 [139]A$[178]"TURNING"[167] [141]270:[141]402:[137]1250
  119. 1225 [139]X[178]1[167][141]290:W[178]W[170]1:[141]402:[137]1235
  120. 1230 Z[178]Z[170]1:[141]280:[137]1215
  121. 1235 [153]"               TURNING "
  122. 1240 [141]300
  123. 1249 :
  124. 1250 [143] # 6
  125. 1255 [141]200:[141]240:X[178]0
  126. 1260 [153]"PRINT                 KWAL   SYS"
  127. 1265 [133] A$
  128. 1270 [139]A$[178]"WALKER"[167] [141]270:[141]402:[137]1300
  129. 1275 [139]X[178]1[167][141]290:W[178]W[170]1:[141]402:[137]1285
  130. 1280 Z[178]Z[170]1:[141]280:[137]1265
  131. 1285 [153]"                WALKER"
  132. 1290 [141]300
  133. 1300 [143] # 7
  134. 1305 [141]200:[141]240:X[178]0
  135. 1310 [153]"PRINT                KCHEC SYS"
  136. 1315 [133] A$
  137. 1320 [139]A$[178]"CHECKING"[167] [141]270:[141]402:[137]1350
  138. 1325 [139]X[178]1[167][141]290:W[178]W[170]1:[141]402:[137]1335
  139. 1330 Z[178]Z[170]1:[141]280:[137]1315
  140. 1335 [153]"               CHECKING"
  141. 1340 [141]300
  142. 1349 :
  143. 1350 [143] # 8
  144. 1355 [141]200:[141]240:X[178]0
  145. 1360 [153]"PRINT                  ALDN   SYS"
  146. 1365 [133] A$
  147. 1370 [139]A$[178]"LANDING"[167] [141]270:[141]402:[137]1400
  148. 1375 [139]X[178]1[167][141]290:W[178]W[170]1:[141]402:[137]1385
  149. 1380 Z[178]Z[170]1:[141]280:[137]1365
  150. 1385 [153]"                 LANDING "
  151. 1390 [141]300
  152. 1400 [143] # 9
  153. 1405 [141]200:[141]240:X[178]0
  154. 1410 [153]"PRINT                SSOT  SYS"
  155. 1415 [133] A$
  156. 1420 [139]A$[178]"TOSSED"[167] [141]270:[141]402:[137]1450
  157. 1425 [139]X[178]1[167][141]290:W[178]W[170]1:[141]402:[137]1435
  158. 1430 Z[178]Z[170]1:[141]280:[137]1415
  159. 1435 [153]"                TOSSED "
  160. 1440 [141]300
  161. 1449 :
  162. 1450 [143] # 10
  163. 1455 [141]200:[141]240:X[178]0
  164. 1460 [153]"PRINT                BREEMEM  SYS"
  165. 1465 [133] A$
  166. 1470 [139]A$[178]"REMEMBERED"[167] [141]270:[141]402:[137]1500
  167. 1475 [139]X[178]1[167][141]290:W[178]W[170]1:[141]402:[137]1485
  168. 1480 Z[178]Z[170]1:[141]280:[137]1465
  169. 1485 [153]"               REMEMBERED "
  170. 1490 [141]300
  171. 1500 [143] # 11
  172. 1505 [141]200:[141]240:X[178]0
  173. 1510 [153]"PRINT                CHACT SYS"
  174. 1515 [133] A$
  175. 1520 [139]A$[178]"CATCHER"[167] [141]270:[141]402:[137]1550
  176. 1525 [139]X[178]1[167][141]290:W[178]W[170]1:[141]402:[137]1535
  177. 1530 Z[178]Z[170]1:[141]280:[137]1515
  178. 1535 [153]"                CATCHER "
  179. 1540 [141]300
  180. 1549 :
  181. 1550 [143] # 12
  182. 1555 [141]200:[141]240:X[178]0
  183. 1560 [153]"PRINT                 SHIFIN SYS"
  184. 1565 [133] A$
  185. 1570 [139]A$[178]"FINISHING"[167] [141]270:[141]402:[137]1600
  186. 1575 [139]X[178]1[167][141]290:W[178]W[170]1:[141]402:[137]1585
  187. 1580 Z[178]Z[170]1:[141]280:[137]1565
  188. 1585 [153]"                FINISHING "
  189. 1590 [141]300
  190. 1600 [143] SCORE BOARD
  191. 1605 K[178]Z[171]W:C[178]12[171]Z
  192. 1610 [153]"LOADLEFT$ERE IS YOUR SCORE FOR (null)NIT STR$-4:"
  193. 1615 [153]"(null)UMBER OF QUESTIONS                     LEN(null)(null)(null)VALLEN(null) (null)(null) PRINTASCRIGHT$(null)(null)(null) (null)(null)(null)  "C
  194. 1620 [153]"(null)UMBER OF QUESTIONS                     LEN(null)(null)(null)VALLEN(null) (null)(null) SYS(null)VALLEN(null)(null)STR$ (null)(null)(null) "K
  195. 1625 [153]"(null)UMBER OF QUESTIONS                     LEN(null)(null)(null)VALLEN(null)CLOSE(null)(null)CLOSEDEF(null)LEFT$RIGHT$(null)STR$ (null)(null)(null)  "W
  196. 1630 [153]"":[141]403:[141]300
  197. 1650 :
  198. 1655 [153]"LOADSYS(null)OU NOW HAVE A CHOICE:
  199. 1660 PRINT"[208]RESS  R [146] TO REPEAT THIS UNIT
  200. 1665 [153]"(null)RESS  M WAIT TO RETURN TO THE DISK MENU
  201. 1670 GETR$:IFR$<>"R"ANDR$<>"M"GOTO1670
  202. 1675 IFR$="R"THENRESTORE:GOTO10
  203. 1680 PRINT"[147][210]ETURNING TO THE DISK [205][197][206][213]
  204. 1685 [147]"MENU",8
  205. 1690 [138]
  206. 1695 [128]
  207. 1700 [143] DESIGNED BY BILL CUMBERLAND 92:01:19
  208. 1710 [143] FOR MY GRANDSON, JAMIE.
  209. 1720 [143] SPELLING D - MODERN CURRICULUM PRESS
  210. 7056 [153]"  THE STATION?"
  211.